perm filename DEFS[NS,SYS]1 blob sn#102478 filedate 1974-05-23 generic text, type T, neo UTF8
COMMENT ⊗   VALID 00002 PAGES 
RECORD PAGE   DESCRIPTION
 00001 00001
 00002 00002	
 00004 ENDMK
⊗;

APPPN ←←' NSSYS'	;disk area where AP programs live
ERRPRG←←'ERROR '	;error-handling program

DEBUG←←0	;NON-ZERO FORCES DOER, GAP TO MOVE SYMBOL TABLE BEFORE READING .DAT

LF←←12	CR←←15  TAB←←11  ALT←←175  FF←←14

	LOC	41
	JSR	UUCODE
	LOC

OPDEF	UEXIT	[001000,,];minor error.
OPDEF	UERROR	[002000,,];moderate error.
OPDEF	UBIGERR	[003000,,];horrendous error.
OPDEF	UHUNG	[004000,,];ENTER failed on TXT file

INTPAR←←400	;INTERRUPT ON PARITY ERROR
INTPTI←←1000	;INTERRUPT USED TO CHANGE NAME

XBEGIN←←-1	;FULL WORD VALUES REPRESENTING SYMBOLS IN KEYW EXPRS: BEGINNING

XTIMES←←1	; *
XMINUS←←2	; -
XPLUS ←←3	; +
XSEQ  ←←4	; #N:M (NEXT WORD HAS N,,M)
XMAX  ←←4	;LAST USED SPECIAL ESCAPE VALUE

RFCS←←200000
RFCR←←100000
CLSS←←40000
CLSR←←20000
INTINR←←100
INTINS←←40
INTTTI←←4
INTINP←←10

DDDLIN←←20000   IIILIN←←400000

; DATA-DISC MACROS AND DEFINITIONS
; COMMAND WORD -- ALTERNATING COMMANDS AND PARAMETERS
DEFINE CW(C1,B1,C2,B2,C3,B3) <
	<BYTE (8)<B1>,<B2>,<B3> (3)<C1>,<C2>,<C3>>!4
>

; COMMAND NAMES FOR DD COMMAND BYTES
EXCT←←0				;EXECUTE
FNCN←←1  ALPHBG←←16  ALPHA←←46	;FUNCTION, USUAL VALUE BYTES
CHNL←←2				;CHANNEL SELECT
COLM←←3				;COLUMN SELECT
HILIN←←4			;HIGH 5 BITS OF LINE
LOLIN←←5			;LOW 5 BITS OF LINE